#!/usr/bin/perl

use English;
require Tk;
use Tk;

my $Version = "1.0";

my $main = MainWindow->new();
$main->minsize( qw(250 250));
$main->title(" Uni. Haifa WiFi");
$main->configure(-background=>'black');

MainLoop();